home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / sdk_sample_showfirstgraphic. < prev    next >
Encoding:
Text File  |  2001-10-16  |  2.1 KB  |  77 lines
  1. <HTML>
  2. <HEAD><TITLE></TITLE>
  3. <META content="text/html; charset=unicode" http-equiv=Content-Type>
  4.  
  5. <SCRIPT ID=Main Name="Main" LANGUAGE=vbscript>
  6. <!--
  7. option Explicit
  8.  
  9. '////////// Plugin Common Part /////////////////////
  10. Sub window_onload
  11.     StBase.ToolName = "Sample: Show First Graphic"
  12.     StBase.ToolVer = "1.01"
  13.     
  14.     StObjectBase.CanChangeHeight = TRUE    
  15.  
  16.     '// Set Initial size
  17.     StBase.ResizeAllScriplets
  18.     
  19.     '// TODO your code
  20.     'StTC.ObjApp.ActiveDrawing.Graphics(0)
  21.     dim GrID
  22.     GrID = StTC.ObjApp.ActiveDrawing.Graphics.Item(0).ID
  23.     StObjectBase.ShowGraphicInfo(GrID)
  24. End Sub
  25.  
  26. Sub window_onresize
  27.     StBase.ResizeAllScriplets' // Resize all Scriptlets Controls
  28. End Sub
  29.  
  30. Sub window_onhelp
  31.     StBase.Help
  32. End Sub
  33.  
  34. -->
  35. </SCRIPT>
  36.  
  37.  
  38. <!-- event From StBase -->
  39. <SCRIPT language="vbscript" for=StBase event="onscriptletevent(eventname, eventdata)">
  40.     select case eventname
  41.     
  42.         '// Start
  43.         case "ShowAll"
  44.         '// TODO Show All spwcific controls
  45.             
  46.         '// Stop
  47.         case "HideAll"
  48.         '// TODO Hide All spwcific controls        
  49.         
  50.     end select    
  51. </SCRIPT>
  52.  
  53.  
  54. </HEAD>
  55. <BODY bgcolor=#e6e6e6 style="FONT-FAMILY: sans-serif; FONT-SIZE: x-small" scroll=no>
  56.  
  57. <!-- StBase: plugin base module (Header, Stop, Star, About, resize ...)-->
  58. <OBJECT height=19 id=StBase name=StBase 
  59. style="LEFT: 0px; POSITION: absolute; TOP: 0px; Z-INDEX: 102" 
  60. type=text/x-scriptlet width=3000><PARAM NAME="Scrollbar" VALUE="0"><PARAM NAME="URL" VALUE="CommonScripts\StBase.htm"></OBJECT>
  61.  
  62. <!-- StTC: TurboCad application base module -->
  63. <OBJECT height=0 id=StTC name=StTC 
  64. style="DISPLAY: none; LEFT: 0px; POSITION: absolute; TOP: 300px; Z-INDEX: 104" 
  65. type=text/x-scriptlet width=0><PARAM NAME="Scrollbar" VALUE="0"><PARAM NAME="URL" VALUE="CommonScripts\StTC.htm"></OBJECT>
  66.  
  67. <!-- StObjectBase -->
  68. <OBJECT height=190 id=StObjectBase name=StObjectBase 
  69. style="BACKGROUND-COLOR: silver; BORDER-BOTTOM-COLOR: white; BORDER-TOP-COLOR: white; DISPLAY: none; LEFT: 0px; POSITION: absolute; TOP: 45px; Z-INDEX: 104" 
  70. type=text/x-scriptlet width=300><PARAM NAME="Scrollbar" VALUE="0"><PARAM NAME="URL" VALUE="CommonScripts\StObjectBase.htm"></OBJECT>
  71.  
  72.  
  73. </BODY>
  74. </HTML>
  75.  
  76.  
  77.